If IsNull(Me.Text183) Then
Me.Text183 = Me.Combo181.Column(0)
Me.Text183.Visible = True
Me.Image218.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text183) And IsNull(Me.Text185) Then
Me.Text185 = Combo181.Column(0)
Me.Text185.Visible = True
Me.Image219.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text185) And IsNull(Me.Text186) Then
Me.Text186 = Combo181.Column(0)
Me.Text186.Visible = True
Me.Image220.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text186) And IsNull(Me.Text187) Then
Me.Text187 = Combo181.Column(0)
Me.Text187.Visible = True
Me.Image221.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text187) And IsNull(Me.Text188) Then
Me.Text188 = Combo181.Column(0)
Me.Text188.Visible = True
Me.Image222.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text188) And IsNull(Me.Text189) Then
Me.Text189 = Combo181.Column(0)
Me.Text189.Visible = True
Me.Image223.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text189) And IsNull(Me.Text190) Then
Me.Text190 = Combo181.Column(0)
Me.Text190.Visible = True
Me.Image224.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text190) And IsNull(Me.Text191) Then
Me.Text191 = Combo181.Column(0)
Me.Text191.Visible = True
Me.Image225.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text191) And IsNull(Me.Text192) Then
Me.Text192 = Combo181.Column(0)
Me.Text192.Visible = True
Me.Image230.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text192) And IsNull(Me.Text193) Then
Me.Text193 = Combo181.Column(0)
Me.Text193.Visible = True
Me.Image231.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text193) And IsNull(Me.Text194) Then
Me.Text194 = Combo181.Column(0)
Me.Text194.Visible = True
Me.Image232.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text194) And IsNull(Me.Text195) Then
Me.Text195 = Combo181.Column(0)
Me.Text195.Visible = True
Me.Image233.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text195) And IsNull(Me.Text226) Then
Me.Text226 = Combo181.Column(0)
Me.Text226.Visible = True
Me.Image235.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text226) And IsNull(Me.Text227) Then
Me.Text227 = Combo181.Column(0)
Me.Text227.Visible = True
Me.Image236.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text227) And IsNull(Me.Text228) Then
Me.Text228 = Combo181.Column(0)
Me.Text228.Visible = True
Me.Image237.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text228) And IsNull(Me.Text229) Then
Me.Text229 = Combo181.Column(0)
Me.Text229.Visible = True
Me.Image238.Visible = True
Me.Combo181 = Null
Else
MsgBox "Please write the rest of the projects to be added in the notes", vbInformation, "Warning"

DoCmd.CancelEvent
Me.Refresh
End If